home *** CD-ROM | disk | FTP | other *** search
/ The Epic Collection 3 / Epic Collection 3, The (1997)(Epic Marketing)[!].iso / internet / ums / ums11.6 / rexx / umsedit.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-08  |  1KB  |  45 lines
  1. /* safely edit the UMS configuration-file */
  2.  
  3. /*** Init ***/
  4.  
  5. call addlib("rexxdossupport.library", 0, -30)
  6. call addlib("ums.library", 0, -210, 11)
  7. call UMSInitConsts()
  8.  
  9. /*** Arguments ***/
  10.  
  11. ProgramName = "UMSEdit";
  12. ArgsTemplate = "SERVER"
  13. args.SERVER = "default"
  14.  
  15. parse arg arguments
  16. if strip(arguments) = '?' then do
  17.   call writech(STDOUT, ArgsTemplate || ': ')
  18.   arguments = readln(STDIN)
  19. end; else nop
  20. if ~ReadArgs(arguments,ArgsTemplate,"args.") then do
  21.   say Fault(RC, ProgramName)
  22.   exit 10
  23. end; else nop
  24.  
  25. /*** look for server and dir ***/
  26.  
  27. dir = GetVar('umsmb.' || args.server)
  28. if dir = "" then do
  29.   say "UMS-MB '" || args.server || "' does not exist"
  30. end; else do
  31.   call pragma("D", dir)
  32.  
  33.   /* try to lock the config */
  34.   res = UMSServerControl("LOCKCFG", args.server)
  35.   if res = 0 then do
  36.     say "editing config for MB '" || args.server || "' in" dir
  37.     address command "$EDITOR ums.config"
  38.  
  39.     /* release the lock */
  40.     call UMSServerControl("UNLOCKCFG", args.server)
  41.   end; else do
  42.     say "UMS Error #" || res || ": " || UMSErrTxtFromNum(res)
  43.   end
  44. end
  45.